This is a dataset on airbnb in NYC. Only entire home/apt in Bronx is filtered.

data(nyc_airbnb)

airbnb_df = nyc_airbnb %>%
  filter(neighbourhood_group == "Bronx",
         room_type == "Entire home/apt")

This code plots a scatter plot on

plot_ly(
  nyc_airbnb, x = ~price, y = ~review_scores_location, type = "scatter", mode = "markers", color = ~number_of_reviews, alpha = 0.8
)
## Warning: Ignoring 10037 observations